#!/usr/bin/perl
push(@INC, 'pwd');
use Cocoa;
#$mug = Cocoa->new("Name"=>'lishuzu', 'x'=> 100, 'y'=>'50');
$mug = Cocoa::new('Name'=>'Will','x'=> 100,'y'=>50);
print "Name = $mug->{'Name'}\n";
print "x = $mug->{'x'}\n";
print "y = $mug->{'y'}\n";
$mug->setImports('java.io.InputStream','java.net.*');
$mug->declareMain('Msg','java.applet.applet',"Runnable");
$mug->closeMain();
